100
How can I prevent showing the border for selected/highlight/hot items

With ToolBar1
	.Background(102) = RGB(255,255,255)
	With .Items
		.Add "Item"
		.Add "Item"
	End With
	.Refresh 
End With
99
How can I change the item's background/backcolor, when the cursor hovers it (hot)

With ToolBar1
	With .Items
		.Add("Item").HotBackColor = RGB(255,0,0)
		.Add("").ToString = "Item[bghot=RGB(255,0,0)]"
	End With
	.Refresh 
End With
98
How can I change the item's background/backcolor

With ToolBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		.Add("Item").BackColor = RGB(255,0,0)
		.Add("Item").BackColor = &H1000000
		.Add("").ToString = "Item[bg=RGB(255,0,0)]"
	End With
	.Refresh 
End With
97
How can I specify/assign the item's identifier

With ToolBar1
	.Debug = True
	With .Items
		.Add "ID 1",0,1000
		.Add("ID 2").ID = 1001
		.Add("").ToString = "ID 3[id=1002]"
	End With
	.Refresh 
End With
96
The popup is displayed using a fade/light-up effect. Is it possible to prevent that

With ToolBar1
	.ShowPopupEffect = 0
	With .Items
		With .Add("Popup",2).Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
			.PopupAppearance = 6
		End With
	End With
	.Refresh 
End With
95
How can I show semi-transparent popups

With ToolBar1
	.PopupVisibility = 50
	With .Items
		With .Add("Popup",2).Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
			.PopupAppearance = 6
		End With
	End With
	.Refresh 
End With
94
How can I change the popup's border

With ToolBar1
	With .Items
		With .Add("Popup",2).Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
			.PopupAppearance = 6
		End With
	End With
	.Refresh 
End With
93
How can I show a horizontal separator/line between groups (method 3,EBN color)

With ToolBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		With .Add("",2)
			.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.AllowEdit = 3
					.EditBorder = 0
					.EditWidth = -128
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = &H1000000
					.ItemHeight = 8
					.CaptionWidth = 128
				End With
				With .Add("")
					.AllowEdit = 3
					.EditBorder = 0
					.EditWidth = -128
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh 
End With
92
How can I show a horizontal separator/line between groups (method 2,solid color)

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.AllowEdit = 3
					.EditBorder = 0
					.EditWidth = -128
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = RGB(128,128,128)
					.ItemHeight = 8
					.CaptionWidth = 128
				End With
				With .Add("")
					.AllowEdit = 3
					.EditBorder = 0
					.EditWidth = -128
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh 
End With
91
How can I show a horizontal separator/line between groups (method 1,pattern)

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.AllowEdit = 3
					.EditBorder = 0
					.EditWidth = -128
					.EditValue = 25
				End With
				With .Add("",2)
					.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
					With .Items
						With .Add("")
							.Enabled = False
							.ItemHeight = 8
							.CaptionWidth = 128
						End With
						.BackgroundExt = "none[(0,50%-1,100%,2),pattern=0x006,patterncolor=RGB(128,128,128)]"
					End With
				End With
				With .Add("")
					.AllowEdit = 3
					.EditBorder = 0
					.EditWidth = -128
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh 
End With
90
How can I show a vertical separator/line between groups (method 3,EBN color)

With ToolBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		With .Add("",2)
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = 0
					.EditWidth = 32
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = &H1000000
					.ItemHeight = 96
					.CaptionWidth = 8
				End With
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = 0
					.EditWidth = 32
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh 
End With
89
How can I show a vertical separator/line between groups (method 2,solid color)

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = 0
					.EditWidth = 32
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = RGB(128,128,128)
					.ItemHeight = 96
					.CaptionWidth = 8
				End With
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = 0
					.EditWidth = 32
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh 
End With
88
How can I show a vertical separator/line between groups (method 1,pattern)

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = 0
					.EditWidth = 32
					.EditValue = 25
				End With
				With .Add("",2)
					.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
					With .Items
						With .Add("")
							.Enabled = False
							.ItemHeight = 96
							.CaptionWidth = 8
						End With
						.BackgroundExt = "none[(50%-1,0,2,100%),pattern=6,patterncolor=RGB(128,128,128)]"
					End With
				End With
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = 0
					.EditWidth = 32
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh 
End With
87
How can I show a pattern on the items

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.BackColor = RGB(255,255,255)
		.Padding = "2,2,2,12"
		.BackgroundExt = "root[pattern=0x006,patterncolor=RGB(128,128,128),frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><of" & _
"f -2> clipboard </off></font></fgcolor>`,align=0x21])"
	End With
	.Refresh 
End With
86
How can I show a thick frame arround the items

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.BackColor = RGB(255,255,255)
		.Padding = "2,2,2,12"
		.BackgroundExt = "root[frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,ali" & _
"gn=0x21])"
	End With
	.Refresh 
End With
85
How can I add some additional icons on the background

With ToolBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Items
		With .Add("",2)
			.GroupPopup = 1
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.BackColor = RGB(255,255,255)
		.Padding = "0,0,0,16"
		.BackgroundExt = "root[text=`<img>2</img><font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor><img>2</img>`,align=0x21]"
	End With
	.Refresh 
End With
84
How can I add some additional text on the background

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 1
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.BackColor = RGB(255,255,255)
		.Padding = "0,0,0,8"
		.BackgroundExt = "root[text=`<font ;6><fgcolor 808080>clipboard`,align=0x21]"
	End With
	.Refresh 
End With
83
How can I disable incremental searching

With ToolBar1
	.PopupIncrementalSearch = 0
	.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
	.Refresh 
End With
82
How can I assign a tooltip to an item (method 2)

With ToolBar1
	.ToString = "ToolTip[id=10][ttp=This is a bit of text that should be shown when cursor hovers the item]"
End With
81
How can I assign a tooltip to an item (method 1)

With ToolBar1
	.Items.Add("ToolTip").Tooltip = "This is a bit of text that should be shown when cursor hovers the item"
	.Refresh 
End With
80
How can I assign a spin field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Spin")
			.AllowEdit = 512
			.EditWidth = 16
			.EditValue = 15
			.EditBorder = 0
			.EditOption(2) = 1000
		End With
		With .Add("Edit-Spin")
			.AllowEdit = 513 ' AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditText
			.EditWidth = -128
			.EditValue = 15
			.EditOption(2) = 1000
		End With
		With .Add("Splider-Spin")
			.AllowEdit = 515 ' AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditSlider
			.EditWidth = -128
			.EditValue = 25
			.EditBorder = 0
		End With
	End With
	.Refresh 
End With
79
How can I assign a spin field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Spin[id=10][edittype=0x0200][edit=15][border=0][max=1000][editwidth=16],Edit-Spin[id=20][edittype=0x0201][edit=15][max=1000][ed" & _
"itwidth=-128],Splider-Spin[id=30][edittype=0x0203][edit=25][border=0][editwidth=-128]"
End With
78
How can I add a vertical slider (method 2)

With ToolBar1
	.ToString = "Vertical[id=10][edittype=0x0403][edit=25][border=0][height=128]"
End With
77
How can I add a vertical slider (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Vertical")
			.ItemHeight = 128
			.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
			.EditBorder = 0
			.EditWidth = 32
			.EditValue = 25
		End With
	End With
	.Refresh 
End With
76
How can I disable an editor (method 2)

With ToolBar1
	.ToString = "Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]"
End With
75
How can I disable an editor (method 1)

With ToolBar1
	With .Items
		With .Add("Disabled")
			.AllowEdit = 1
			.EditWidth = -128
			.EditValue = "text-box"
			.Enabled = False
		End With
	End With
	.Refresh 
End With
74
How can I lock an editor (method 2)

With ToolBar1
	.ToString = "Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]"
End With
73
How can I lock an editor (method 1)

With ToolBar1
	With .Items
		With .Add("Locked")
			.AllowEdit = 257 ' AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditText
			.EditWidth = -128
			.EditValue = "disabled text-box"
		End With
	End With
	.Refresh 
End With
72
How can I assign a font field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Font")
			.AllowEdit = 7
			.EditWidth = -128
			.EditValue = "Tahoma"
		End With
	End With
	.Refresh 
End With
71
How can I assign a font field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Font[id=10][edittype=0x07][edit=Tahoma][editwidth=-128]"
End With
70
How can I assign a color field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Color")
			.AllowEdit = 6
			.EditBorder = 0
			.EditWidth = -128
			.EditValue = 255
		End With
	End With
	.Refresh 
End With
69
How can I assign a color field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Color[id=10][edittype=0x06][edit=#FF0000][border=0][editwidth=-128]"
End With
68
How can I assign a scrollbar field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("ScrollBar")
			.AllowEdit = 5
			.EditWidth = -128
			.EditValue = "25"
		End With
	End With
	.Refresh 
End With
67
How can I assign a scrollbar field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "ScrollBar[id=10][edittype=0x05][edit=25][editwidth=-128]"
End With
66
Is it possible to change the tooltip beging shown when I change the slider/scroll/progress value

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Progress")
			.AllowEdit = 4
			.EditWidth = -128
			.EditValue = 25
			.EditOption(8) = "`Current value is: ` + value"
		End With
	End With
	.Refresh 
End With
65
How can I hide the tooltip beging shown when I change the slider/scroll/progress value

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Progress")
			.AllowEdit = 4
			.EditWidth = -128
			.EditValue = 25
			.EditOption(8) = ""
		End With
	End With
	.Refresh 
End With
64
How can I assign a progress field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Progress")
			.AllowEdit = 4
			.EditWidth = -128
			.EditValue = 25
		End With
	End With
	.Refresh 
End With
63
How can I assign a progress field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Progress[id=10][edittype=0x04][edit=25][editwidth=-128]"
End With
62
How can I assign a slider field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Slider")
			.AllowEdit = 3
			.EditWidth = -128
			.EditValue = 25
		End With
		With .Add("Slider")
			.AllowEdit = 3
			.EditBorder = 0
			.EditWidth = -128
			.EditOption(1) = 50
			.EditOption(2) = 450
			.EditOption(3) = 2
			.EditOption(4) = 50
			.EditOption(5) = "value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><font ;6><b><fgcolor" & _
" FF0000>'+value : '' ) )"
			.EditValue = 345
		End With
	End With
	.Refresh 
End With
61
How can I assign a slider field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Slider[id=10][edittype=0x03][edit=25][editwidth=-128],Slider[id=20][edittype=0x03][edit=345][border=0][min=50][max=450][tick=2]" & _
"[freq=50][ticklabel=value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><" & _
"font ;6><b><fgcolor FF0000>'+value : '' ) )][editwidth=-128]"
End With
60
How can I assign a mask (time) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Time")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = "99:00:00;;0;overtype,warning=Invalid character"
			.EditValue = "123456"
		End With
	End With
	.Refresh 
End With
59
How can I assign a mask (time) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Time[id=10][edittype=0x02][edit=12:34:56][mask=99:00:00;;0;overtype,warning=Invalid character][editwidth=-128]"
End With
58
How can I assign a mask (license key) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("License Key")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = "AAAA-AAAA-AAAA-AAAA"
			.EditValue = "1234"
		End With
	End With
	.Refresh 
End With
57
How can I assign a mask (license key) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "License Key[id=10][edittype=0x02][edit=1234-____-____-____][mask=AAAA-AAAA-AAAA-AAAA][editwidth=-128]"
End With
56
How can I assign a mask (IP address) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("IP Address")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = "{0,255}.{0,255}.{0,255}.{0,255}"
			.EditValue = "1.2.3.4"
		End With
	End With
	.Refresh 
End With
55
How can I assign a mask (IP address) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "IP Address[id=10][edittype=0x02][edit=1.2.3.4][mask={0,255}.{0,255}.{0,255}.{0,255}][editwidth=-128]"
End With
54
How can I assign a mask (phone) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Phone")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = "!(9999) 000 000;;;empty,select=4,overtype,beep"
			.EditValue = "0771638317"
		End With
	End With
	.Refresh 
End With
53
How can I assign a mask (phone) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Phone[id=10][edittype=0x02][edit=(0771) 638 317][mask=!(9999) 000 000;;;empty,select=4,overtype,beep][editwidth=-128]"
End With
52
How can I assign a mask (date) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = "`Date: `{1,12}/{1,31}/{1950,2050};;;select=1"
			.EditValue = #2/15/2015#
		End With
		With .Add("Date")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype"
			.EditValue = #2/15/2015#
		End With
	End With
	.Refresh 
End With
51
How can I assign a mask (date) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "[id=10][edittype=0x02][edit=Date: 2/15/2015][mask=`Date: `{1,12}/{1,31}/{1950,2050};;;select=1][editwidth=-128],Date[id=20][edi" & _
"ttype=0x02][edit=02/15/2015][mask=!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,ov" & _
"ertype][editwidth=-128]"
End With
50
How can I assign a mask (integer) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Integer")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = ";;;float,grouping=,digits=0"
			.EditValue = 1000
		End With
		With .Add("Integer-Grouping")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = ";;;float,decimal=,digits=0,select=1"
			.EditValue = 1000
		End With
		With .Add("Integer-In-Range")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = "{0,2050}"
			.EditValue = 1000
		End With
	End With
	.Refresh 
End With
49
How can I assign a mask (integer) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Integer[id=10][edittype=0x02][edit=1000][mask=;;;float,grouping=,digits=0][editwidth=-128],Integer-Grouping[id=20][edittype=0x0" & _
"2][edit=1,000][mask=;;;float,decimal=,digits=0,select=1][editwidth=-128],Integer-In-Range[id=30][edittype=0x02][edit=1000][mask=" & _
"{0,2050}][editwidth=-128]"
End With
48
How can I assign a mask field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Mask")
			.AllowEdit = 2
			.EditWidth = -128
			.EditMask = ";;;float,select=1"
			.EditValue = 1000
		End With
	End With
	.Refresh 
End With
47
How can I assign a mask field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Text-Box[id=10][edittype=0x02][edit=1,000][mask=;;;float,select=1][editwidth=-128]"
End With
46
How can I assign an edit / text-box to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Mask")
			.AllowEdit = 1
			.EditValue = "this is a text"
			.EditWidth = -128
		End With
	End With
	.Refresh 
End With
45
How can I assign an edit / text-box to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( Itm )
	End With
End Sub

With ToolBar1
	.ToString = "Text-Box[edit=this is a text][editwidth=-128]"
End With
44
How can I display a tab into the toolbar (method 2)

With ToolBar1
	.Background(102) = RGB(240,240,240)
	With .Items
		.ToString = "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-" & _
"100]))"
		With .Item(-10).Items
			.Add("",0,0).Padding = "8,0,0,0"
			With .Add("New Page")
				.ToString = "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>1</b></font></off>"
				With .Items.Item(0).Items
					With .Add("add here fields for page 1")
						.ID = -1000
						.Enabled = False
						.BackColor = RGB(255,0,0)
					End With
				End With
			End With
			With .Add("New Page")
				.ToString = "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>2</b></font></off>"
				With .Items.Item(0).Items
					With .Add("add here fields for page 2")
						.ID = -1001
						.Enabled = False
						.BackColor = RGB(0,255,0)
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.Refresh 
End With
43
How can I add check-buttons to items, without showing the check-box (method 2)

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Check 1")
					.Check = True
					.Checked = True
					.ShowCheckedAsSelected = 1
				End With
				With .Add("Check 2")
					.Check = True
					.ShowCheckedAsSelected = 1
				End With
				With .Add("Check 3")
					.Check = True
					.Checked = True
					.ShowCheckedAsSelected = 1
				End With
			End With
		End With
	End With
	.Refresh 
End With
42
How can I add check-buttons to items, without showing the check-box (method 1)

With ToolBar1
	.ToString = "[group=0x3](Check 1[chk=1][show=1],Check 2[chk=0][show=1],Check 3[chk=1][show=1])"
End With
41
How can I add radio buttons to items, without showing the radio-buttons (method 2)

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Radio 1",,1000)
					.ShowCheckedAsSelected = 1
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1001)
					.ShowCheckedAsSelected = 1
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1003)
					.ShowCheckedAsSelected = 1
					.Radio = True
					.RadioGroup = 100
				End With
				.Item(1000).Checked = True
			End With
		End With
	End With
	.Refresh 
End With
40
How can I add radio buttons to items, without showing the radio-buttons (method 1)

With ToolBar1
	.ToString = "[group=0x3](Radio 1[rad=1][show=1][grp=100][id=1000],Radio 2[rad=0][show=1][grp=100][id=1001],Radio 2[rad=0][show=1][grp=100][i" & _
"d=1002])"
End With
39
How can I add check-buttons to items (method 2)

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Check 1")
					.Check = True
					.Checked = True
				End With
				.Add("Check 2").Check = True
			End With
		End With
	End With
	.Refresh 
End With
38
How can I add check-buttons to items (method 1)

With ToolBar1
	.ToString = "[group=0x3](Check 1[chk=1],Check 2[chk=0])"
End With
37
How can I add radio buttons to items (method 2)

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 1
			With .Items
				With .Add("Radio 1",,1000)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1001)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1003)
					.Radio = True
					.RadioGroup = 100
				End With
				.Item(1000).Checked = True
			End With
		End With
	End With
	.Refresh 
End With
36
How can I add radio buttons to items (method 1)

With ToolBar1
	.ToString = "[group=0x1](Radio 1[rad=1][grp=100][id=1000],Radio 2[rad=0][grp=100][id=1001],Radio 2[rad=0][grp=100][id=1002])"
End With
35
How can I change the selection/highlighting color

With ToolBar1
	.SelBackColor = RGB(0,0,0)
	.Background(102) = RGB(128,0,0)
	.Background(111) = RGB(255,255,255)
	.ToString = "[group=3](Item 1[chk],Item 2[chk])"
End With
34
How can I prevent showing/hide the border on the selected/highlighted item

With ToolBar1
	.Background(102) = .SelBackColor
	.ToString = "Item 1,Item 2"
End With
33
How can I display a tab into the toolbar (method 1)

With ToolBar1
	.Background(102) = RGB(240,240,240)
	.ToString = "[group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03]([id=50][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=60][ty" & _
"p=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][grou" & _
"p=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=80],add here fields for page 1[id=-1000][dis])),Page<off -5><font " & _
";5><b>2</b></font></off>[id=100][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(2" & _
"40,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=120],add here fields for page 2[id=-10" & _
"01][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
	With .Items.Item(-1000)
		.BackColor = RGB(255,0,0)
	End With
	With .Items.Item(-1001)
		.BackColor = RGB(0,255,0)
	End With
End With
32
How do I prevent highlighting the item (method 2.b)

With ToolBar1
	With .Items
		.Add("No highlight").Enabled = False
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Refresh 
End With
31
How do I prevent highlighting the item (method 2.a)

With ToolBar1
	With .Items
		With .Add("No highlight",2)
			.Items.Add ""
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			.ShowPopupArrow = False
		End With
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Refresh 
End With
30
How do I prevent highlighting the item (method 1.b)

With ToolBar1
	.Items.ToString = "No highlight[dis],Item 2,Item 3"
	.Refresh 
End With
29
How do I prevent highlighting the item (method 1.a)

With ToolBar1
	.Items.ToString = "No highlight[group=0x3][arrow=0]([]),Item 2,Item 3"
	.Refresh 
End With
28
How can I can I assign pictures or images for the item (method 2)

With ToolBar1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	With .Items
		.Add("Item").HTMLImage = "pic1"
		.Add("Item").HTMLImage = "pic2"
		.Add "",1
		.Add "Item <img>pic1</img>"
		.Add "Item <img>pic2</img>"
		.Add "",1
		.Add "<img>pic1</img> Item <img>pic2</img>"
	End With
	.Refresh 
End With
27
How can I can I assign pictures or images for the item (method 1)

With ToolBar1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.ToString = "Item[himg=pic1],Item[himg=pic2],[sep],Item <img>pic1</img>,Item <img>pic2</img>,[sep],<img>pic1</img> Item <img>pic2</img>"
End With
26
How can I can I assign icons for the item (method 2)

With ToolBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Items
		.Add("Item").Image = 1
		.Add("Item").Image = 2
		.Add "",1
		.Add "Item <img>1</img>"
		.Add "Item <img>2</img>"
		.Add "",1
		.Add("Item <img>1</img>").Image = 1
	End With
	.Refresh 
End With
25
How can I can I assign icons for the item (method 1)

With ToolBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Items.ToString = "Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]"
	.Refresh 
End With
24
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 2)

With ToolBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		.Padding = "2,2,2,2"
		.BackColor = &H1000000
		.Add "Item 1"
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Refresh 
End With
23
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 1)

With ToolBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Items.ToString = "[itemsbg=0x1000000][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	.Refresh 
End With
22
How can I change the background color for a collection of items/group (method 2)

With ToolBar1
	With .Items
		.Padding = "2,2,2,2"
		.BackColor = RGB(255,0,0)
		.Add "Item 1"
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Refresh 
End With
21
How can I change the background color for a collection of items/group (method 1)

With ToolBar1
	.Items.ToString = "[itemsbg=RGB(255,0,0)][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	.Refresh 
End With
20
How can I change the visual appearance / background color (EBN) for a specified item (method 2)

With ToolBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		.Add "Item 1"
		.Add("Item 2").BackColor = &H1000000
		.Add "Item 3"
	End With
	.Refresh 
End With
19
How can I change the visual appearance / background color (EBN) for a specified item (method 1)

With ToolBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Items.ToString = "Item 1,Item 2[bg=0x1000000],Item 3"
	.Refresh 
End With
18
How can I change the background color for a specified item (method 2)

With ToolBar1
	With .Items
		.Add "Item 1"
		.Add("Item 2").BackColor = RGB(255,0,0)
		.Add "Item 3"
	End With
	.Refresh 
End With
17
How can I change the background color for a specified item (method 1)

With ToolBar1
	.Items.ToString = "Item 1,Item 2[bg=RGB(255,0,0)],Item 3"
	.Refresh 
End With
16
How can I change the visual appearance (EBN) of the floating popups (method 2, applies to single popup)

With ToolBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		With .Add("Popup",2).Items
			.PopupAppearance = 16777216 ' &H1000000
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
	End With
	.Refresh 
End With
15
How can I change the visual appearance (EBN) of the floating popups (method 1, applies to all)

With ToolBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
	.PopupAppearance = 16777216 ' &H1000000
	.Refresh 
End With
14
How can I change the visual appearance of the floating popups (method 2, applies to single popup)

With ToolBar1
	With .Items
		With .Add("Popup",2).Items
			.PopupAppearance = 6
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
	End With
	.Refresh 
End With
13
How can I change the visual appearance of the floating popups (method 1, applies to all)

With ToolBar1
	.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
	.PopupAppearance = 6
	.Refresh 
End With
12
How do I add a popup or a sub-menu so it show when cursor hovers it (method 2)

With ToolBar1
	With .Items
		With .Add("Popup",2).Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
	End With
	.Refresh 
End With
11
How do I add a popup or a sub-menu so it show when cursor hovers it (method 1)

With ToolBar1
	.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
	.Refresh 
End With
10
How can I arrange the items by grouping (method 2)

With ToolBar1
	With .Items
		With .Add("",2)
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Horizontal",2)
					.GroupPopup = 1
					With .Items
						.Add "Sub-Item <b>A</b>"
						.Add "Sub-Item <b>B</b>"
						.Add "Sub-Item <b>C</b>"
					End With
				End With
				.Add("").CaptionWidth = 16
				With .Add("Vertical",2)
					.Alignment = 1
					.GroupPopup = 257 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopup
					With .Items
						.Add "Sub-Item <b>A</b>"
						.Add "Sub-Item <b>B</b>"
						.Add "Sub-Item <b>C</b>"
					End With
				End With
				.Add("").CaptionWidth = 16
				With .Add("Popup",2)
					With .Items
						.Add "Sub-Item <b>A</b>"
						.Add "Sub-Item <b>B</b>"
						.Add "Sub-Item <b>C</b>"
					End With
				End With
			End With
		End With
	End With
	.Refresh 
End With
9
How can I arrange the items by grouping (method 1)

With ToolBar1
	.Items.ToString = "[group=0x03](Horizontal[group=0x01](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Vertical[group=0x0" & _
"101][align=1](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Popup(Sub-Item <b>A</b>,Sub-Item <b>B</b>" & _
",Sub-Item <b>C</b>),[captionwidth=160])"
	.Refresh 
End With
8
How can I arrange some items vertically, and some horizontally (method 2)

With ToolBar1
	With .Items
		With .Add("",2)
			With .Items
				.Add "1"
				.Add "2"
				.Add "3"
			End With
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
		With .Add("",2)
			With .Items
				.Add "4"
				.Add "5"
				.Add "6"
			End With
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
		With .Add("",2)
			With .Items
				.Add "7"
				.Add "8"
				.Add "9"
			End With
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
	End With
	.Refresh 
End With
7
How can I arrange some items vertically, and some horizontally (method 1)

With ToolBar1
	.Items.ToString = "[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)"
	.Refresh 
End With
6
How can I assign multiple-lines to an item (method 2)

With ToolBar1
	With .Items
		With .Add("",2)
			With .Items
				.Add("Item 1").Caption = "Item <br><c><b>1"
				.Add("Item 2").Caption = "Item <br><c><b>2"
				.Add("Item 3").Caption = "Item <br><c><b>3"
			End With
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
	End With
	.Refresh 
End With
5
How can I assign multiple-lines to an item (method 1)

With ToolBar1
	.Items.ToString = "[group=3](Item <br><c><b>1,Item <br><c><b>2,Item <br><c><b>3)"
	.Refresh 
End With
4
How can I add new items arranged horizontally to the toolbar control (method 2)

With ToolBar1
	With .Items
		With .Add("",2)
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
			.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
	End With
	.Refresh 
End With
3
How can I add new items arranged horizontally to the toolbar control (method 1)

With ToolBar1
	.Items.ToString = "[group=3](Item 1,Item 2,Item 3)"
	.Refresh 
End With
2
How can I add new items to the toolbar control (method 2)

With ToolBar1
	With .Items
		.Add "Item 1"
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Refresh 
End With
1
How can I add new items to the toolbar control (method 1)

With ToolBar1
	.Items.ToString = "Item 1,Item 2,Item 3"
	.Refresh 
End With